home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
disk
/
dopus-15.lha
/
DOpus-1541
/
Install
< prev
next >
Wrap
Text File
|
1995-02-24
|
1KB
|
82 lines
; 1541-DOPUS install script
; Date : 22-SEP-95
; Version 1.0
(transcript "Installing 1541-DOPUS...")
(welcome "You are about to install 1541-DOPUS on\nyour computer system.")
(set @default-dest "rexx:1541-Dopus")
(set name
(askdir
(prompt "Where do you want to install the arexx scripts?\n"
"(A drawer will NOT be created there!")
(help
"The best place is probably the REXX: drawer. If you havn't changed"
"anything, this will probably be the S/ drawer.\n"
@askdir-help
)
(default @default-dest)
)
)
(set @default-dest name)
(copyfiles
(Prompt "")
(source "Rexx/Dopus/1541")
(dest @default-dest )
(infos)
(all)
)
(if (trap -1 (getenv "1541.prefs"))
(
(set utilsdir
(askdir
(prompt
"Please locate the UTILS/ drawer inside your A64 directory:"
)
(help
"1541-DOPUS uses the shell commands with the A64 emulator. You should"
"where this shell commands are...\n\n"
@askstring-help
)
(default "Work:Emulators/A64/Utils")
)
)
(set tempdir
(askdir
(prompt
"Where should 1541-DOPUS place it's temporary files:"
)
(help
"T: is the most used place for temporary files...\n\n"
@askstring-help
)
(default "t:")
)
)
(textfile
(dest "ENVARC:1541.prefs")
(append utilsdir "\n" @default-dest "\n" tempdir)
)
(textfile
(dest "ENV:1541.prefs")
(append utilsdir "\n" @default-dest "\n" tempdir)
)
)
)
(exit "See ya later!")